home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Tutorial / ARexx Tutorial / TuteRexx / DOS-DOpus.dopus5 < prev    next >
Text File  |  1998-08-06  |  778b  |  15 lines
  1. /*
  2.  $VER: DOS-DOpus.dopus5 1.0 (28.7.98)
  3.  Loads current shell directory into a new DOpus5 lister.
  4. */
  5. options results                        /* Enable results */
  6. if ~show('P','DOPUS.1') then do        /* Check for DOPUS.1 ARexx port */
  7.   Say "DirectoryOpus is not running."  /* Warn user if DOpus not running */
  8.   Exit (5)                             /* Exit with result code = 5 (Warn) */
  9.   end                                  /* End this loop */
  10. Address 'DOPUS.1'                      /* Address DOpus */
  11. dopus front                            /* Bring DOpus to the front */
  12. dir = pragma('d')                      /* Returns current shell in 'dir' */
  13. lister new dir                         /* Open a new lister, path 'dir' */
  14. exit                                   /* Exit */
  15.